home *** CD-ROM | disk | FTP | other *** search
/ Asia X / Asia X.iso / mac / DATA / slideshow / 00004.ls < prev    next >
Encoding:
Text File  |  1995-08-28  |  260 b   |  19 lines
  1. on exitFrame
  2.   global slideSpeed
  3.   if slideSpeed = 0 then
  4.     set slideSpeed to 2
  5.   end if
  6.   if the timer < (slideSpeed * 7 * 60) then
  7.     go(the frame)
  8.   else
  9.     songUpdate()
  10.     startTimer()
  11.     go(1)
  12.   end if
  13. end
  14.  
  15. on mouseUp
  16.   sound stop 1
  17.   play done
  18. end
  19.